home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_Tix.idb / usr / freeware / lib / tix4.1 / demos / MkScroll.tcl.z / MkScroll.tcl
Encoding:
Text File  |  1999-01-26  |  5.0 KB  |  157 lines
  1. # MkScroll.tcl --
  2. #
  3. #    This file implements the "Scrolled Widgets" page in the widget demo
  4. #
  5. #    This file has not been properly documented. It is NOT intended
  6. #    to be used as an introductory demo program about Tix
  7. #    programming. For such demos, please see the files in the
  8. #    demos/samples directory or go to the "Samples" page in the
  9. #    "widget demo"
  10. #
  11. #
  12. # Copyright (c) 1996, Expert Interface Technologies
  13. #
  14. # See the file "license.terms" for information on usage and redistribution
  15. # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  16. #
  17.  
  18. proc MkScroll {nb page} {
  19.     set w [$nb subwidget $page]
  20.  
  21.     set name [tixOptionName $w]
  22.     option add *$name*TixLabelFrame*label.padX 4
  23.  
  24.     tixLabelFrame $w.sls -label "tixScrolledListBox"
  25.     tixLabelFrame $w.swn -label "tixScrolledWindow"
  26.     tixLabelFrame $w.stx -label "tixScrolledText"
  27.     MkSList   [$w.sls subwidget frame]
  28.  
  29.     MkSText   [$w.stx subwidget frame]
  30.     MkSWindow [$w.swn subwidget frame]
  31.  
  32.     tixForm $w.sls -top 0 -left 0 -right %33 -bottom -1
  33.     tixForm $w.swn -top 0 -left $w.sls -right %66 -bottom -1
  34.     tixForm $w.stx -top 0 -left $w.swn -right -1 -bottom -1
  35. }
  36.  
  37. #----------------------------------------------------------------------
  38. # ScrolledListBox
  39. #----------------------------------------------------------------------
  40. proc MkSList {w} {
  41.     frame $w.top -width 300 -height 330
  42.     frame $w.bot
  43.  
  44.     message $w.top.msg -font -*-helvetica-bold-r-normal-*-14-*-*-*-*-*-*-*\
  45.     -relief flat -width 200 -anchor n\
  46.     -text {This TixScrolledListBox is configured so that it uses\
  47. scrollbars only when it is necessary. Use the handles to\
  48. resize the listbox and watch the scrollbars automatically\
  49. appear and disappear.}
  50.  
  51.     set list [tixScrolledListBox $w.top.list -scrollbar auto]
  52.     place $list -x 50 -y 150 -width 120 -height 80
  53.     $list subwidget listbox insert end Alabama
  54.     $list subwidget listbox insert end California
  55.     $list subwidget listbox insert end Montana
  56.     $list subwidget listbox insert end "New Jersy"
  57.     $list subwidget listbox insert end "New York"
  58.     $list subwidget listbox insert end Pennsylvania
  59.     $list subwidget listbox insert end Washington
  60.  
  61.     set rh [tixResizeHandle $w.top.r -bg #202060 -relief raised \
  62.         -handlesize 8 -gridded true -minwidth 50 -minheight 30]
  63.  
  64.     button $w.bot.btn -text Reset -command "SList:Reset $rh $list"
  65.     pack propagate $w.top 0
  66.     pack $w.top.msg -fill x
  67.     pack $w.bot.btn -anchor c 
  68.     pack $w.top -expand yes -fill both
  69.     pack $w.bot -fill both
  70.  
  71.     bind $list <Map> "tixDoWhenIdle $rh attachwidget $list"
  72. }
  73.  
  74. proc SList:Reset {rh list} {
  75.     place $list -x 50 -y 150 -width 120 -height 80
  76.     update
  77.     $rh attachwidget $list
  78. }
  79.  
  80. #----------------------------------------------------------------------
  81. # ScrolledWindow
  82. #----------------------------------------------------------------------
  83. proc MkSWindow {w} {
  84.     global demo_dir
  85.     frame $w.top -width 330 -height 330
  86.     frame $w.bot
  87.  
  88.     message $w.top.msg -font -*-helvetica-bold-r-normal-*-14-*-*-*-*-*-*-*\
  89.     -relief flat -width 200 -anchor n\
  90.     -text {The TixScrolledWindow widget allows you\
  91. to scroll any kind of TK widget. It is more versatile\
  92. than a scrolled canvas widget}
  93.  
  94.     set win [tixScrolledWindow $w.top.win -scrollbar auto]
  95.     set f [$win subwidget window]
  96.     set image [image create photo -file $demo_dir/bitmaps/tix.gif]
  97.  
  98.     label $f.b1 -image $image
  99.  
  100.     pack $f.b1 -expand yes -fill both
  101.  
  102.     place $win -x 30 -y 150 -width 190 -height 120
  103.     set rh [tixResizeHandle $w.top.r -bg #202060 -relief raised \
  104.         -handlesize 8 -gridded true -minwidth 50 -minheight 30]
  105.  
  106.     button $w.bot.btn -text Reset -command "SWindow:Reset $rh $win"
  107.     pack propagate $w.top 0
  108.     pack $w.top.msg -fill x
  109.     pack $w.bot.btn -anchor c 
  110.     pack $w.top -expand yes -fill both
  111.     pack $w.bot -fill both
  112.  
  113.     bind $win <Map> "tixDoWhenIdle $rh attachwidget $win"
  114. }
  115.  
  116. proc SWindow:Reset {rh win} {
  117.     place $win -x 30 -y 150 -width 190 -height 120
  118.     update
  119.     $rh attachwidget $win
  120. }
  121.  
  122. #----------------------------------------------------------------------
  123. # ScrolledText
  124. #----------------------------------------------------------------------
  125. proc MkSText {w} {
  126.     frame $w.top -width 330 -height 330
  127.     frame $w.bot
  128.  
  129.     message $w.top.msg -font -*-helvetica-bold-r-normal-*-14-*-*-*-*-*-*-*\
  130.     -relief flat -width 200 -anchor n\
  131.     -text {The TixScrolledWindow widget allows you\
  132. to scroll any kind of TK widget. It is more versatile\
  133. than a scrolled canvas widget}
  134.  
  135.     set win [tixScrolledText $w.top.win -scrollbar both]
  136.     $win subwidget text config -wrap none
  137.  
  138.     place $win -x 30 -y 150 -width 190 -height 100
  139.     set rh [tixResizeHandle $w.top.r -bg #202060 -relief raised \
  140.         -handlesize 8 -gridded true -minwidth 50 -minheight 30]
  141.  
  142.     button $w.bot.btn -text Reset -command "SText:Reset $rh $win"
  143.     pack propagate $w.top 0
  144.     pack $w.top.msg -fill x
  145.     pack $w.bot.btn -anchor c 
  146.     pack $w.top -expand yes -fill both
  147.     pack $w.bot -fill both
  148.  
  149.     bind $win <Map> "tixDoWhenIdle $rh attachwidget $win"
  150. }
  151.  
  152. proc SText:Reset {rh win} {
  153.     place $win -x 30 -y 150 -width 190 -height 100
  154.     update
  155.     $rh attachwidget $win
  156. }
  157.